home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / ORGANNEL CHARTS.cpt / ORGANNEL CHARTS™ / card_32229.txt < prev    next >
Text File  |  1988-02-06  |  1KB  |  44 lines
  1. -- card: 32229 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2577
  5. -- name: nuname
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=189 top=199 right=221 bottom=261
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Add Sheet
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   set lockScreen to true
  24.   put the userLevel into saveLevel
  25.   if the userLevel <5 then set userLevel to 5
  26.   if the userLevel <5 then exit mouseUp
  27.   get the ID of this card
  28.   put the ID of this card into idno
  29.   get the short name of this card
  30.   set the name of this card to nuname
  31.   go to card id 9861
  32.   doMenu "Copy Card"
  33.   go to card idno
  34.   doMenu "Paste Card"
  35.   set the name of this card to nuname
  36.   go to card idno
  37.   doMenu "Delete Card"
  38.   go to card idno
  39.   set userLevel to saveLevel
  40.   set lockScreen to false
  41.   visual effect dissolve slow
  42. end mouseUp
  43.  
  44.